home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / TVTFH.SDA / VTABLE FROM HELL (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  2.2 KB  |  55 lines
  1. 0 REM -- FILENAME: "VTABLE FROM HELL".    COPYRIGHTED (C) 1998 BY GLENN P.
  2. 1 REM -- NON-PROFIT DISTRIBUTION O.K.,    ALL OTHER RIGHTS EXPRESSLY RESERVED.
  3. 10 CLR:PRINT"[147][159][212]HE [214]IGENERE [212]ABLE [198]ROM [200]ELL!    V01.00[154]":GOSUB460
  4. 20 CLR:DIMA%(26):RK$="":RK=0:GOSUB340:IFRKTHEN40
  5. 30 RK$=MID$(STR$(INT(RND(0)*1000000000)+TI),2,9)
  6. 40 PRINT:RK=RND(-VAL(RK$))
  7. 50 PRINT"[210]ANDOMIZING... [208]LEASE [215]AIT...":FORX=0TO1999:J%=RND(1):NEXTX:PRINT
  8. 60 PRINT"[196]ELETING [208]REVIOUS [214]IGENERE [212]ABLE...":PRINT
  9. 70 CLOSE1:OPEN1,8,15,"I0":PRINT#1,"S0:VIGENERE TABLE":PRINT#1,"I0":CLOSE1
  10. 80 PRINT"[195]REATING [206]EW [214]IGENERE [212]ABLE...":PRINT
  11. 90 CLOSE1:OPEN1,8,5,"0:VIGENERE TABLE,S,W"
  12. 100 FORX=1TO5:PRINT#1:NEXTX:PRINT#1,"         [212]HE [214]IGENERE [212]ABLE [198]ROM [200]ELL!"
  13. 110 PRINT#1:PRINT#1,"            [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
  14. 120 PRINT#1,"            ::::::::::::::::::::::::::"
  15. 130 FORX=1TO26:A%(X)=X+192:NEXTX:FORZ=1TO26
  16. 140 FORY=0TO9:PRINT"[193]LPHABET ";CHR$(Z+192);": [211]HUFFLE";Y;"OF 9...[145]":FORX=1TO26
  17. 150 X%=X+INT(RND(1)*(27-X))
  18. 160 T=A%(X):A%(X)=A%(X%):A%(X%)=T
  19. 170 NEXTX:X$="":FORX=1TO26:X$=X$+CHR$(A%(X)):NEXTX,Y:PRINT:PRINT"   ";X$:PRINT
  20. 180 PRINT#1,"         ";CHR$(Z+192);"::";X$:NEXTZ:PRINT#1
  21. 190 PRINT#1,"         [212][207] [197][206][195][210][217][208][212]: [198]IND [203]EY [204]ETTER AT"
  22. 200 PRINT#1,"        LEFT, MOVE RIGHT TO [208]LAINTEXT"
  23. 210 PRINT#1,"        [204]ETTER IN BODY, THEN ASCEND TO"
  24. 220 PRINT#1,"        [195]IPHERTEXT [204]ETTER AT TOP.":PRINT#1
  25. 230 PRINT#1,"         [212][207] [196][197][195][210][217][208][212]: [198]IND [203]EY [204]ETTER AT"
  26. 240 PRINT#1,"        LEFT, FIND [195]IPHERTEXT LETTER AT"
  27. 250 PRINT#1,"        TOP, THEN CROSS-REFERENCE TO"
  28. 260 PRINT#1,"        FIND [208]LAINTEXT [204]ETTER IN BODY.":PRINT#1
  29. 270 PRINT#1,"         [210]EPRODUCTION [203]EY [201]S: ";RK$;"."
  30. 280 PRINT"[201] HAVE JUST FINISHED WRITING THE":PRINT"[214]IGENERE [212]ABLE FROM [200]ELL..."
  31. 290 CLOSE1:OPEN1,8,15:CLOSE1:OPEN1,8,15,"I0":CLOSE1:OPEN1,8,15:CLOSE1
  32. 300 PRINT:PRINT"[198]ILENAME IS ";CHR$(34);"VIGENERE TABLE";CHR$(34);";"
  33. 310 PRINT"[210]EPRODUCTION [203]EY = ";RK$;".":PRINT:GOSUB460
  34. 320 PRINT"[150][193]LL [196]ONE![154][145][145][145]";:CLR:END
  35. 330 STOP
  36. 340 PRINT"[217]OU MAY ENTER A [210]EPRODUCTION [203]EY FOR"
  37. 350 PRINT"THIS TABLE (ANY INTEGER 1 TO 999999999)"
  38. 360 PRINT"OR YOU MAY LET THE [195]OMPUTER SELECT A"
  39. 370 PRINT"NUMBER AT RANDOM FOR YOU. [208]LEASE PRESS"
  40. 380 PRINT"[210][197][212][213][210][206] OR ENTER YOUR CHOSEN NUMBER NOW:"
  41. 390 RK$="":RK=0:PRINT:INPUT"[210]EPRODUCTION [203]EY? [210][193][206][196][207][205][157][157][157][157][157][157][157][157]";RK$
  42. 400 RK$=MID$(STR$(INT(VAL(RK$))),2,9):RK=VAL(RK$)
  43. 410 IFSGN(RK)<>-1ANDRK<1000000000THEN440
  44. 420 PRINT:PRINT"[150][211]ORRY, [212]HAT [201]S [206][207][212] [193] [214]ALID [195]HOICE![154]"
  45. 430 PRINT"[208]LEASE TRY AGAIN...":GOTO390
  46. 440 RETURN
  47. 450 STOP
  48. 460 PRINT"[195]OPYRIGHT ([195]) 23-[211]EP-1998 03:48AM [197][196][212]"
  49. 470 PRINT"[199]LENN [208]., <74127.01457@[195]OMPU[211]ERVE.[195][207][205]>."
  50. 480 PRINT"[206]ON-PROFIT DISTRIBUTION ALLOWED; ALL"
  51. 490 PRINT"OTHER RIGHTS EXPRESSLY RESERVED.":PRINT
  52. 500 RETURN
  53. 510 STOP
  54. 520 END
  55.